home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form Form1
- Caption = "Formula One Timing Project"
- ClientHeight = 6795
- ClientLeft = 1050
- ClientTop = 1635
- ClientWidth = 9495
- BeginProperty Font
- name = "MS Sans Serif"
- charset = 0
- weight = 700
- size = 8.25
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- Height = 7260
- Icon = "FOTime1.frx":0000
- Left = 960
- LinkTopic = "Form1"
- ScaleHeight = 6795
- ScaleWidth = 9495
- Top = 1260
- Width = 9675
- Begin VB.Frame Results
- Caption = "Results"
- BeginProperty Font
- name = "Arial"
- charset = 0
- weight = 700
- size = 12
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- ForeColor = &H000000FF&
- Height = 1335
- Left = 2760
- TabIndex = 0
- Top = 0
- Width = 4455
- Begin VB.Label VTSTimeRaw
- BorderStyle = 1 'Fixed Single
- Caption = "Formula One Time"
- BeginProperty Font
- name = "Arial"
- charset = 0
- weight = 700
- size = 12
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 375
- Left = 240
- TabIndex = 1
- Top = 480
- Width = 2535
- End
- Begin VB.Label Insuff
- Caption = "Times less than .2 seconds are invalid"
- ForeColor = &H000000FF&
- Height = 255
- Left = 240
- TabIndex = 2
- Top = 960
- Width = 3495
- End
- End
- Begin VB.Frame Frame1
- Caption = "Timing Operations"
- BeginProperty Font
- name = "Arial"
- charset = 0
- weight = 700
- size = 12
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- ForeColor = &H000000FF&
- Height = 6735
- Left = 120
- TabIndex = 3
- Top = 0
- Width = 2415
- Begin VB.CommandButton Command23
- Caption = "Set Test Parameters"
- Height = 375
- Left = 120
- TabIndex = 17
- Top = 6240
- Width = 2175
- End
- Begin VB.CommandButton Command24
- Caption = "Again"
- Height = 375
- Left = 1440
- TabIndex = 16
- Top = 1320
- Width = 855
- End
- Begin VB.CommandButton Command19
- Caption = "Do All Tests"
- Height = 375
- Left = 120
- TabIndex = 15
- Top = 5760
- Width = 2175
- End
- Begin VB.CommandButton Command17
- Caption = " Save Worksheet"
- Height = 375
- Left = 120
- TabIndex = 14
- Top = 2280
- Width = 2175
- End
- Begin VB.CommandButton Command13
- Caption = "Sort Rows"
- Height = 375
- Left = 120
- TabIndex = 13
- Top = 4680
- Width = 2175
- End
- Begin VB.CommandButton Command12
- Caption = "Delete Rows"
- Height = 375
- Left = 120
- TabIndex = 12
- Top = 4200
- Width = 2175
- End
- Begin VB.CommandButton Command11
- Caption = "Insert Rows"
- Height = 375
- Left = 120
- TabIndex = 11
- Top = 3720
- Width = 2175
- End
- Begin VB.CommandButton Command10
- Caption = "Copy Rows"
- Height = 375
- Left = 120
- TabIndex = 10
- Top = 3240
- Width = 2175
- End
- Begin VB.CommandButton Command9
- Caption = "Load Ascii Text"
- Height = 375
- Left = 120
- TabIndex = 9
- Top = 2760
- Width = 2175
- End
- Begin VB.CommandButton Command4
- Caption = "Load Worksheet"
- Height = 375
- Left = 120
- TabIndex = 8
- Top = 1800
- Width = 2175
- End
- Begin VB.CommandButton Command2
- Caption = "Scrolling Speed"
- Height = 375
- Left = 120
- TabIndex = 7
- Top = 5160
- Width = 2175
- End
- Begin VB.CommandButton Command1
- Caption = "Calculation"
- Height = 375
- Left = 120
- TabIndex = 6
- Top = 1320
- Width = 1335
- End
- Begin VB.CommandButton Command3
- Caption = "Fill With Numbers"
- Height = 375
- Left = 120
- TabIndex = 5
- Top = 840
- Width = 2175
- End
- Begin VB.CommandButton Command8
- Caption = "Fill With Formulas"
- Height = 375
- Left = 120
- TabIndex = 4
- Top = 360
- Width = 2175
- End
- Begin VB.Line Line1
- BorderColor = &H000000FF&
- BorderWidth = 5
- X1 = 120
- X2 = 2280
- Y1 = 5640
- Y2 = 5640
- End
- End
- Begin VCIF1Lib.F1Book F1Book1
- Height = 5295
- Left = 2760
- TabIndex = 18
- Top = 1440
- Width = 6615
- _version = 65536
- _extentx = 11668
- _extenty = 9340
- _stockprops = 96
- borderstyle = 1
- appname = ""
- filename = "FOTime1.frx":044A
- End
- Attribute VB_Name = "Form1"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Call CalcTime
- End Sub
- Private Sub Command10_Click()
- Call CopyData
- End Sub
- Private Sub Command11_Click()
- Call InsertRows
- End Sub
- Private Sub Command12_Click()
- Call DeleteRows
- End Sub
- Private Sub Command13_Click()
- Call SortRows
- End Sub
- Private Sub Command14_Click()
- End Sub
- Private Sub Command15_Click()
- End Sub
- Private Sub Command16_Click()
- End Sub
- Private Sub Command17_Click()
- Call SaveFile
- End Sub
- Private Sub Command19_Click()
- Dim sserror%, C%
- Dim SSName$
- Dim ReadFileType%
- ' Load Formatted Result Worksheet
- SSName$ = App.Path + "\FOTime3.vts"
- Form2.ResultSheet.Read SSName$, ReadFileType
- Form2.ResultSheet.ShowEditBar = False
- Call FillTimeF
- C = 5
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call FillTimeN
- C = 6
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call CalcTime
- C = 7
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call LoadFile
- C = 8
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call SaveFile
- C = 9
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call LoadAscii
- C = 10
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call CopyData
- C = 11
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call InsertRows
- C = 12
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call DeleteRows
- C = 13
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call SortRows
- C = 14
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Call ScrollTime
- C = 15
- Form2.ResultSheet.TextRC(C, 1) = Form1.Results
- Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
- Form2.Show
- Form2.Refresh
- End Sub
- Private Sub Command2_Click()
- Call ScrollTime
- End Sub
- Private Sub Command21_Click()
- End Sub
- Private Sub Command22_Click()
- End Sub
- Private Sub Command23_Click()
- Form3.Show
- End Sub
- Private Sub Command24_Click()
- Form1.F1Book1.AutoRecalc = False
- Form1.F1Book1.Row = 1
- Form1.F1Book1.Col = 1
- Form1.F1Book1.Number = Int(Rnd(1) * 1000)
- StartTime = GetTickCount()
- Form1.F1Book1.AutoRecalc = True
- EndTime = GetTickCount()
- Global_Time_VTI = (EndTime - StartTime) / 1000
- Form1.VTSTimeRaw = Format$(Global_Time_VTI, "0.00") + " Seconds"
- If (EndTime - StartTime) < 200 Then
- Form1.Insuff.Visible = True
- End If
- Form1.Refresh
- End Sub
- Private Sub Command3_Click()
- Call FillTimeN
- End Sub
- Private Sub Command4_Click()
- Call LoadFile
- End Sub
- Private Sub Command8_Click()
- Call FillTimeF
- End Sub
- Private Sub Command9_Click()
- Call LoadAscii
- End Sub
- Private Sub Form_Load()
- Form1.Top = 0
- Form1.Left = 0
- Form1.Width = 9615
- Form1.Height = 7200
- Set_CopyRows% = DefCopyRows
- Set_InsertRows% = DefInsertRows
- Set_DeleteRows% = DefDeleteRows
- Set_FillRows% = DefFillRows
- Set_FillCols% = DefFillCols
- Set_ScrollRows% = DefScrollRows
- Set_SortRows% = DefSortRows
- Set_CalcRows% = DefCalcRows
- Set_CalcCols% = DefCalcCols
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- End
- End Sub
-